2024-02-25
data <- readr::read_csv( "train.csv" ) |> group_by(date) |> summarise(sales = mean(sales)) |> filter(year(date) == 2017)
data |> plot_time_series( date, sales, .interactive = TRUE )
data |> plot_acf_diagnostics( date, sales, .interactive = TRUE )